EXTRN INBYTE: NEAR                   
	EXTRN OUTBYTE: NEAR	         
	EXTRN OUTWORD: NEAR
	EXTRN NEWLINE: NEAR

CSEG SEGMENT PUBLIC 'CODE'          	

ASSUME CS:CSEG, DS:CSEG, SS:CSEG
	ORG 100H 

START: JMP BEGIN
TABLE DB 10 DUP (?)
INM DB  , i 10 ii  ', '$'
OUTM DB '  10  = ', '$'
BEGIN:

	MOV AH, 9
	MOV DX, OFFSET INM
	INT 21H
	CALL NEWLINE

	MOV CX, 10
	MOV SI, 0
INL1:
	PUSH CX
	CALL INBYTE
	POP CX
	MOV [TABLE+SI], AH
	INC SI
	LOOP INL1

	SUB AX, AX		
	SUB BX, BX
	MOV CX, 10
	MOV SI, 0
INL2:
	MOV AL, [TABLE+SI] 
	ADD BX, AX      
	INC SI
	LOOP INL2

	MOV AH, 9
	MOV DX, OFFSET OUTM
	INT 21H
	
	MOV AX, BX
	CALL OUTWORD
	CALL NEWLINE

MOV AX, 4C00H
INT 21H

CSEG ENDS
END START
     
